VERSION 5.00
Object = "{9B1E48ED-8018-11D3-B75D-006097A1EBF0}#1.0#0"; "dns.ocx"
Begin VB.Form frmDNS 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "Domain Name / IP Converter"
   ClientHeight    =   1020
   ClientLeft      =   45
   ClientTop       =   210
   ClientWidth     =   5595
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1020
   ScaleWidth      =   5595
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CheckBox chkError 
      Caption         =   "Check1"
      Height          =   255
      Left            =   3960
      TabIndex        =   6
      Top             =   720
      Visible         =   0   'False
      Width           =   1335
   End
   Begin DNSControl.DNS DNS2 
      Left            =   1320
      Top             =   480
      _ExtentX        =   873
      _ExtentY        =   873
   End
   Begin VB.CommandButton cmdToName 
      Caption         =   "<= IP Address to Name"
      Height          =   315
      Left            =   1800
      TabIndex        =   5
      Top             =   600
      Width           =   1935
   End
   Begin VB.TextBox txtIP 
      Height          =   315
      Left            =   3840
      TabIndex        =   3
      Top             =   360
      Width           =   1575
   End
   Begin VB.CommandButton cmdToIP 
      Caption         =   "Name to IP Address =>"
      Height          =   315
      Left            =   1800
      TabIndex        =   2
      Top             =   120
      Width           =   1935
   End
   Begin VB.TextBox txtName 
      Height          =   315
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   1575
   End
   Begin VB.Label Label2 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Host IP Address:"
      Height          =   195
      Left            =   3840
      TabIndex        =   4
      Top             =   120
      Width           =   1185
   End
   Begin VB.Label Label1 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "Host Name:"
      Height          =   195
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   840
   End
End
Attribute VB_Name = "frmDNS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub cmdToIP_Click()
  txtIP = DNS2.NameToAddress(txtName)
End Sub

Sub cmdToName_Click()
  txtName = DNS2.AddressToName(txtIP)
End Sub

Private Sub DNS2_Error(ByVal Number As Long, Description As String)
'set DNS error flag
chkError.Value = 1

' Error handling handled by calling function
'MsgBox "Sorry, X-Bot was unable to resolve the address '" & txtName.Text & "' which is in your servers list.  Please ensure you typed it correctly and that you are online.", vbExclamation, App.ProductName
End Sub
